library(ggplot2)
library(maps)
library(ggthemes)
library(plotly)
d1=read.csv("https://raw.githubusercontent.com/RamiKrispin/coronavirus-csv/master/coronavirus_dataset.csv")
d1=d1[d1$type=="confirmed",]
d2=aggregate(d1$cases,by=list(Lat=d1$Lat,Long=d1$Long,Country.Region=d1$Country.Region,Date=d1$date),FUN=sum)
colnames(d2)[5]="cases"
world=map_data("world")
w1=ggplot()+geom_polygon(data=world,aes(colour=region,x=long,y=lat,group=group),fill="white")+theme_map()+theme(legend.position = "none")+scale_fill_brewer(palette = "Blues")
map <- w1 +
geom_point(aes(x = Long, y = Lat, size = cases,colour=Country.Region),
data =d2,
alpha = 1) +
scale_size_continuous(range = c(2, 8)) +
labs(title= 'COVID-19 Confirmed Cases')
map
